perl gr1.pl BOY_as1.txt > boy_am.txt;
perl gr1.pl GIRL_as1.txt > girl_am.txt;

b = load('boy_am.txt');
g = load('girl_am.txt');

energy_boy = sum(abs(eig(b)))
energy_girl = sum(abs(eig(g)))

clear b g boy girl ii boy_eigen girl_eigen energy_boy energy_girl

